﻿Imports System.Data.SqlClient

Public Class clsMENSAJERIA_PROCESOS
    Enum PROCESO_ORIGEN
        CATALOGO_MATERIALES = 1
        CATALOGO_OPERACIONES = 3
        CATALOGO_ALMACENES = 4

    End Enum
    Public Sub INSERTAR_MENSAJE_GENERAL(ByVal DESCRIPCION As String, ByVal ID As Integer, ByVal PROCESO As PROCESO_ORIGEN)
        'DESCRIPCION,TIPO_MSJ,EN_BANDEJA,FECHA,ADJUNTO,IDUSER,NOMBRES,TIPO,ID_CREADO
        Dim sql As String = "Insert Into MENSAJES_PROCESOS (DESCRIPCION,TIPO_MSJ,EN_BANDEJA,FECHA,ID_USER,NOMBRE,TIPO,ID_CREADO) " & _
                            "VALUES (" & _
                            "@DESCRIPCION," & _
                            "@TIPO_MSJ," & _
                            "@EN_BANDEJA," & _
                            "@FECHA," & _
                            "@IDUSER," & _
                            "@NOMBRE," & _
                            "@TIPO," & _
                            "@ID_CREADO)"

        Dim cnConn As New SqlConnection
        cnConn.ConnectionString = CitraConnection

        Dim Command As New SqlCommand(sql, cnConn)

        Command.Parameters.AddWithValue("DESCRIPCION", DESCRIPCION)
        Command.Parameters.AddWithValue("TIPO_MSJ", 1)
        Command.Parameters.AddWithValue("EN_BANDEJA", 0)
        Command.Parameters.AddWithValue("FECHA", Now())
        Command.Parameters.AddWithValue("IDUSER", BuscarIntDatoInicial("SELECT IDUSUARIO FROM USUARIOS_CITRA WHERE NOMBRE_USUARIO='" & UCase(UsuarioActivo) & "'"))
        Command.Parameters.AddWithValue("NOMBRE", UCase(UsuarioActivo))
        Command.Parameters.AddWithValue("TIPO", PROCESO)
        Command.Parameters.AddWithValue("ID_CREADO", ID)

        cnConn.Open()

        Try
            Command.ExecuteNonQuery()

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Aviso")
        End Try


    End Sub
    Public Sub INSERTAR_MENSAJE_USUARIOS(ByVal DESCRIPCION As String, ByVal ID As Integer, ByVal PROCESO As PROCESO_ORIGEN)
        'DESCRIPCION,TIPO_MSJ,EN_BANDEJA,FECHA,ADJUNTO,IDUSER,NOMBRES,TIPO,ID_CREADO
        Dim sql As String = "Insert Into MENSAJES_PROCESOS (DESCRIPCION,TIPO_MSJ,EN_BANDEJA,FECHA,ID_USER,NOMBRE,TIPO,ID_CREADO) " & _
                            "VALUES (" & _
                            "@DESCRIPCION," & _
                            "@TIPO_MSJ," & _
                            "@EN_BANDEJA," & _
                            "@FECHA," & _
                            "@IDUSER," & _
                            "@NOMBRE," & _
                            "@TIPO," & _
                            "@ID_CREADO)"

        Dim cnConn As New SqlConnection
        cnConn.ConnectionString = CitraConnection

        Dim Command As New SqlCommand(sql, cnConn)

        Command.Parameters.AddWithValue("DESCRIPCION", DESCRIPCION)
        Command.Parameters.AddWithValue("TIPO_MSJ", 2)
        Command.Parameters.AddWithValue("EN_BANDEJA", 0)
        Command.Parameters.AddWithValue("FECHA", Now())
        Command.Parameters.AddWithValue("IDUSER", BuscarIntDatoInicial("SELECT IDUSUARIO FROM USUARIOS_CITRA WHERE NOMBRE_USUARIO='" & UCase(UsuarioActivo) & "'"))
        Command.Parameters.AddWithValue("NOMBRE", UCase(UsuarioActivo))
        Command.Parameters.AddWithValue("TIPO", PROCESO)
        Command.Parameters.AddWithValue("ID_CREADO", ID)

        cnConn.Open()

        Try
            Command.ExecuteNonQuery()

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Aviso")
        End Try


    End Sub
    Public Sub INSERTAR_NOTA(ByVal DESCRIPCION As String, ByVal ID As Integer, ByVal PROCESO As PROCESO_ORIGEN)
        'DESCRIPCION,TIPO_MSJ,EN_BANDEJA,FECHA,ADJUNTO,IDUSER,NOMBRES,TIPO,ID_CREADO
        Dim sql As String = "Insert Into MENSAJES_PROCESOS (DESCRIPCION,TIPO_MSJ,EN_BANDEJA,FECHA,ID_USER,NOMBRE,TIPO,ID_CREADO) " & _
                            "VALUES (" & _
                            "@DESCRIPCION," & _
                            "@TIPO_MSJ," & _
                            "@EN_BANDEJA," & _
                            "@FECHA," & _
                            "@IDUSER," & _
                            "@NOMBRE," & _
                            "@TIPO," & _
                            "@ID_CREADO)"

        Dim cnConn As New SqlConnection
        cnConn.ConnectionString = CitraConnection

        Dim Command As New SqlCommand(sql, cnConn)

        Command.Parameters.AddWithValue("DESCRIPCION", DESCRIPCION)
        Command.Parameters.AddWithValue("TIPO_MSJ", 3)
        Command.Parameters.AddWithValue("EN_BANDEJA", 0)
        Command.Parameters.AddWithValue("FECHA", Now())
        Command.Parameters.AddWithValue("IDUSER", BuscarIntDatoInicial("SELECT IDUSUARIO FROM USUARIOS_CITRA WHERE NOMBRE_USUARIO='" & UCase(UsuarioActivo) & "'"))
        Command.Parameters.AddWithValue("NOMBRE", UCase(UsuarioActivo))
        Command.Parameters.AddWithValue("TIPO", PROCESO)
        Command.Parameters.AddWithValue("ID_CREADO", ID)

        cnConn.Open()

        Try
            Command.ExecuteNonQuery()

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Aviso")
        End Try


    End Sub
    Public Sub INSERTAR_SEGUIDOR(ByVal ID As String, ByVal IDUSUARIO As Integer, ByVal NOMBRE As String, ByVal PROCESO As PROCESO_ORIGEN)
        'IDPRODUCTO,IDUSUARIO,NOMBRE,FECHA_ADD,FECHA_DEL,ID_USER_ADM,TIPO
        Dim sql As String = "Insert Into SEGUIDORES (IDPRODUCTO,IDUSUARIO,NOMBRE,FECHA_ADD,ID_USER_ADM,TIPO) " & _
                            "VALUES (" & _
                            "@IDPRODUCTO," & _
                            "@IDUSUARIO," & _
                            "@NOMBRE," & _
                            "@FECHA_ADD," & _
                            "@ID_USER_ADM," & _
                            "@TIPO)"

        Dim cnConn As New SqlConnection
        cnConn.ConnectionString = CitraConnection

        Dim Command As New SqlCommand(sql, cnConn)

        Command.Parameters.AddWithValue("IDPRODUCTO", ID)
        Command.Parameters.AddWithValue("IDUSUARIO", IDUSUARIO)
        Command.Parameters.AddWithValue("NOMBRE", NOMBRE)
        Command.Parameters.AddWithValue("FECHA_ADD", Now())
        Command.Parameters.AddWithValue("ID_USER_ADM", BuscarIntDatoInicial("SELECT IDUSUARIO FROM USUARIOS_CITRA WHERE NOMBRE_USUARIO='" & UCase(UsuarioActivo) & "'"))
        Command.Parameters.AddWithValue("TIPO", PROCESO)

        cnConn.Open()

        Try
            Command.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Aviso")
        End Try


    End Sub
End Class
